inherited FrmComp_VendasProdRep: TFrmComp_VendasProdRep
  Left = 138
  Top = 1
  Caption = 'Comparativo de Vendas (Produto X Representante)'
  ClientHeight = 574
  ClientWidth = 570
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 570
    Height = 401
    object Label1: TLabel
      Left = 8
      Top = 14
      Width = 60
      Height = 14
      Caption = 'Per'#237'odo de'
    end
    object Label2: TLabel
      Left = 208
      Top = 14
      Width = 6
      Height = 14
      Caption = 'a'
    end
    object BtnInsereRepresentante: TSpeedButton
      Left = 11
      Top = 49
      Width = 25
      Height = 21
      Hint = 'Insere um novo produto na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereRepresentanteClick
    end
    object Label14: TLabel
      Left = 41
      Top = 53
      Width = 51
      Height = 14
      Caption = 'Produtos'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 291
      Top = 49
      Width = 25
      Height = 21
      Hint = 'Insere um novo representante na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object Label3: TLabel
      Left = 321
      Top = 53
      Width = 89
      Height = 14
      Caption = 'Representantes'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 10
      Top = 282
      Width = 85
      Height = 14
      Caption = 'Tipo de Pedido:'
    end
    object Bevel1: TBevel
      Left = -12
      Top = 280
      Width = 585
      Height = 2
    end
    object ed_dataini: TDateEdit
      Left = 80
      Top = 12
      Width = 121
      Height = 21
      NumGlyphs = 2
      TabOrder = 0
      OnExit = ed_datainiExit
    end
    object ed_datafim: TDateEdit
      Left = 224
      Top = 12
      Width = 121
      Height = 21
      NumGlyphs = 2
      TabOrder = 1
      OnExit = ed_datafimExit
    end
    object ListaProd: TCheckListBox
      Left = 10
      Top = 73
      Width = 270
      Height = 202
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 4
    end
    object ListaRepre: TCheckListBox
      Left = 290
      Top = 73
      Width = 270
      Height = 202
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 6
    end
    object ListaTpPed: TCheckListBox
      Left = 9
      Top = 297
      Width = 552
      Height = 72
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 8
    end
    object rg: TRadioGroup
      Left = 416
      Top = 41
      Width = 144
      Height = 31
      Columns = 2
      Items.Strings = (
        'Ativos'
        'Todos')
      TabOrder = 3
      OnClick = rgClick
    end
    object rgCod: TRadioGroup
      Left = 359
      Top = 2
      Width = 201
      Height = 42
      Caption = 'Tipo de C'#243'digo do Produto'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Normal'
        'Refer'#234'ncia')
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 9
      Top = 376
      Width = 552
      Height = 24
      BevelInner = bvRaised
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 9
      object bp: TGauge
        Left = 5
        Top = 5
        Width = 541
        Height = 14
        BorderStyle = bsNone
        ForeColor = clNavy
        Progress = 0
        Visible = False
      end
    end
    object pnlProd: TPanel
      Left = 381
      Top = 10
      Width = 449
      Height = 385
      BevelInner = bvLowered
      BorderWidth = 1
      Color = clGray
      TabOrder = 5
      Visible = False
      object Panel5: TPanel
        Left = 3
        Top = 3
        Width = 443
        Height = 379
        Align = alClient
        Color = clGray
        TabOrder = 0
        object Label5: TLabel
          Left = 8
          Top = 12
          Width = 77
          Height = 19
          Caption = 'Produtos:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
        end
        object dbgrdProd: TDBGrid
          Left = 1
          Top = 108
          Width = 441
          Height = 270
          Align = alBottom
          DataSource = dtsrcProd
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
          OnCellClick = dbgrdProdCellClick
          OnDblClick = dbgrdProdDblClick
          OnKeyDown = dbgrdProdKeyDown
          OnKeyPress = dbgrdProdKeyPress
          OnTitleClick = dbgrdProdTitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'Cod'
              Title.Caption = 'C'#243'digo'
              Width = 87
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Descr'
              Title.Caption = 'Descri'#231#227'o'
              Width = 311
              Visible = True
            end>
        end
        object BitBtn1: TBitBtn
          Left = 364
          Top = 10
          Width = 75
          Height = 25
          Caption = 'Fechar'
          TabOrder = 1
          OnClick = BitBtn1Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777788
            F8F878F7777777777333333F00004444400777FFF444447777777777F333FF7F
            000033334D5008FFF4333377777777773337777F0000333345D50FFFF4333333
            337F777F3337F33F000033334D5D0FFFF43333333377877F3337F33F00003333
            45D50FEFE4333333337F787F3337F33F000033334D5D0FFFF43333333377877F
            3337F33F0000333345D50FEFE4333333337F787F3337F33F000033334D5D0FFF
            F43333333377877F3337F33F0000333345D50FEFE4333333337F787F3337F33F
            000033334D5D0EFEF43333333377877F3337F33F0000333345D50FEFE4333333
            337F787F3337F33F000033334D5D0EFEF43333333377877F3337F33F00003333
            4444444444333333337F7F7FFFF7F33F00003333333333333333333333777777
            7777333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
            333333333333777777F3333F00003333330000003333333333337FFFF7F3333F
            0000}
          NumGlyphs = 2
        end
        object p_fase: TRadioGroup
          Left = 8
          Top = 36
          Width = 433
          Height = 68
          Caption = '  Fase:  '
          Columns = 2
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnClick = p_faseClick
        end
      end
    end
    object pnlRepr: TPanel
      Left = 517
      Top = 42
      Width = 449
      Height = 313
      BevelInner = bvLowered
      BorderWidth = 1
      Color = clGray
      TabOrder = 7
      Visible = False
      object Label23: TLabel
        Left = 8
        Top = 12
        Width = 121
        Height = 19
        Caption = 'Representantes'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 252
        Top = 8
        Width = 43
        Height = 14
        Caption = 'Inativos'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 252
        Top = 24
        Width = 35
        Height = 14
        Caption = 'Ativos'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dbgrdRepr: TDBGrid
        Left = 3
        Top = 40
        Width = 443
        Height = 270
        Align = alBottom
        DataSource = dtsrcRepr
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnDrawColumnCell = dbgrdReprDrawColumnCell
        OnDblClick = dbgrdReprDblClick
        OnKeyDown = dbgrdReprKeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'Cod'
            Title.Caption = 'C'#243'digo'
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Descr'
            Title.Caption = 'Nome'
            Width = 333
            Visible = True
          end>
      end
      object grBusca: TGroupBox
        Left = 8
        Top = 248
        Width = 433
        Height = 57
        Caption = ' Informe o Nome '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        Visible = False
        object Label24: TLabel
          Left = 200
          Top = 40
          Width = 223
          Height = 14
          Caption = ' Tecle <F5> p/ localizar por C'#243'd. ou Nome'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edNomeR: TEdit
          Left = 8
          Top = 16
          Width = 417
          Height = 22
          CharCase = ecUpperCase
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnKeyDown = edNomeRKeyDown
        end
      end
      object Panel8: TPanel
        Left = 227
        Top = 44
        Width = 185
        Height = 14
        Alignment = taRightJustify
        BevelOuter = bvNone
        Caption = '<F2> p/ localizar'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object BitBtn6: TBitBtn
        Left = 364
        Top = 10
        Width = 75
        Height = 25
        Caption = '&Fechar'
        TabOrder = 3
        OnClick = BitBtn6Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777788
          F8F878F7777777777333333F00004444400777FFF444447777777777F333FF7F
          000033334D5008FFF4333377777777773337777F0000333345D50FFFF4333333
          337F777F3337F33F000033334D5D0FFFF43333333377877F3337F33F00003333
          45D50FEFE4333333337F787F3337F33F000033334D5D0FFFF43333333377877F
          3337F33F0000333345D50FEFE4333333337F787F3337F33F000033334D5D0FFF
          F43333333377877F3337F33F0000333345D50FEFE4333333337F787F3337F33F
          000033334D5D0EFEF43333333377877F3337F33F0000333345D50FEFE4333333
          337F787F3337F33F000033334D5D0EFEF43333333377877F3337F33F00003333
          4444444444333333337F7F7FFFF7F33F00003333333333333333333333777777
          7777333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333777777F3333F00003333330000003333333333337FFFF7F3333F
          0000}
        NumGlyphs = 2
      end
      object Panel6: TPanel
        Left = 224
        Top = 9
        Width = 21
        Height = 11
        BevelOuter = bvNone
        Color = 14597792
        TabOrder = 4
      end
      object Panel7: TPanel
        Left = 224
        Top = 25
        Width = 21
        Height = 11
        BevelOuter = bvNone
        Color = clBlack
        TabOrder = 5
      end
    end
  end
  inherited Panel2: TPanel
    Top = 507
    Width = 570
    inherited btncancelar1: TBitBtn
      Left = 239
    end
    inherited btnfechar1: TBitBtn
      Left = 456
    end
    inherited bimprimir: TFlatButton
      Left = 7
      Enabled = True
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 229
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 451
      Caption = 'Fecha&r'
    end
  end
  inherited sb: TStatusBar
    Top = 555
    Width = 570
  end
  inherited Panel3: TPanel
    Width = 570
    inherited ListaEmp: TCheckListBox
      Left = 10
      Width = 549
    end
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
    OnBeforeNewPage = RDPBeforeNewPage
  end
  object dtsrcProd: TDataSource
    DataSet = CDS1
    Left = 52
    Top = 266
  end
  object dtsrcRepr: TDataSource
    DataSet = CDSRes
    Left = 308
    Top = 218
  end
  object CDSRes: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 308
    Top = 170
    object CDSResCod: TStringField
      FieldName = 'Cod'
      Size = 5
    end
    object CDSResDescr: TStringField
      FieldName = 'Descr'
      Size = 40
    end
    object CDSResSit: TStringField
      FieldName = 'Sit'
      Size = 1
    end
  end
  object CDS1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 20
    Top = 170
    object CDS1Cod: TStringField
      DisplayWidth = 15
      FieldName = 'Cod'
    end
    object CDS1Descr: TStringField
      FieldName = 'Descr'
      Size = 40
    end
  end
  object CDS3: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 20
    Top = 218
    object CDS3Cod: TStringField
      DisplayWidth = 15
      FieldName = 'Cod'
    end
    object CDS3Descr: TStringField
      FieldName = 'Descr'
      Size = 40
    end
  end
  object CDS2: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 52
    Top = 170
    object CDS2Cod: TStringField
      DisplayWidth = 15
      FieldName = 'Cod'
    end
    object CDS2Descr: TStringField
      FieldName = 'Descr'
    end
  end
  object CDS4: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 52
    Top = 218
    object CDS4Cod: TStringField
      DisplayWidth = 15
      FieldName = 'Cod'
    end
    object CDS4Descr: TStringField
      FieldName = 'Descr'
      Size = 40
    end
  end
  object X: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 161
    Top = 34
    object XProd: TStringField
      FieldName = 'Prod'
    end
    object XCol: TIntegerField
      FieldName = 'Col'
    end
    object XImprCol: TIntegerField
      FieldName = 'ImprCol'
    end
  end
  object Y: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 193
    Top = 34
    object YRepr: TStringField
      FieldName = 'Repr'
    end
    object YLin: TIntegerField
      FieldName = 'Lin'
    end
  end
  object XY: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 236
    Top = 34
    object XYProd: TStringField
      FieldName = 'Prod'
    end
    object XYRepr: TStringField
      FieldName = 'Repr'
    end
    object XYQtde: TFloatField
      FieldName = 'Qtde'
    end
    object XYLin: TIntegerField
      FieldName = 'Lin'
    end
    object XYCol: TIntegerField
      FieldName = 'Col'
    end
  end
  object A: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 340
    Top = 34
    object AQtde: TFloatField
      FieldName = 'Qtde'
    end
    object ALin: TIntegerField
      FieldName = 'Lin'
    end
    object ACol1: TFloatField
      FieldName = 'Col1'
    end
    object ACol2: TFloatField
      FieldName = 'Col2'
    end
    object ACol3: TFloatField
      FieldName = 'Col3'
    end
    object ACol4: TFloatField
      FieldName = 'Col4'
    end
    object ACol5: TFloatField
      FieldName = 'Col5'
    end
    object ARep: TStringField
      FieldName = 'Rep'
      Size = 50
    end
    object ACol6: TFloatField
      FieldName = 'Col6'
    end
    object ACol7: TFloatField
      FieldName = 'Col7'
    end
    object ACol8: TFloatField
      FieldName = 'Col8'
    end
    object ACol9: TFloatField
      FieldName = 'Col9'
    end
    object ACol10: TFloatField
      FieldName = 'Col10'
    end
    object ACol11: TFloatField
      FieldName = 'Col11'
    end
    object ACol12: TFloatField
      FieldName = 'Col12'
    end
    object ACol13: TFloatField
      FieldName = 'Col13'
    end
    object ACol14: TFloatField
      FieldName = 'Col14'
    end
    object ACol15: TFloatField
      FieldName = 'Col15'
    end
    object ACol16: TFloatField
      FieldName = 'Col16'
    end
    object ACol17: TFloatField
      FieldName = 'Col17'
    end
    object ACol18: TFloatField
      FieldName = 'Col18'
    end
    object ACol19: TFloatField
      FieldName = 'Col19'
    end
    object ACol20: TFloatField
      FieldName = 'Col20'
    end
  end
end
